home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSCGET.for < prev    next >
Text File  |  1991-05-01  |  459b  |  23 lines
  1.     SUBROUTINE GSCGET(IPTR,DX,DY,LMOVE)
  2.         IMPLICIT NONE
  3.         REAL*4 DX,DY,X,Y
  4.         INTEGER IPTR
  5. C
  6. C    THIS SUBROUTINE GETS THE NEXT NODE (POINT) ON THE CHARACTER
  7. C    BASED UPON "IPTR".   IT THEN SCALES AND ROTATES IT.
  8. C
  9.     LOGICAL*1 LMOVE
  10.     INCLUDE DIGLIB$KOM:GCCTBL.PRM
  11. C
  12.     LMOVE = .FALSE.
  13. 50    IF (BX(IPTR) .NE. -64) GO TO 100
  14.     LMOVE = .TRUE.
  15.     IPTR = IPTR + 1
  16.     GO TO 50
  17. 100    X=BX(IPTR)
  18.     Y=BY(IPTR)
  19.     CALL GSCCLC(X,Y,DX,DY)
  20.     IPTR = IPTR + 1
  21.         RETURN
  22.     END
  23.